home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / FileConv.lha / FileConv / Uninstall < prev    next >
Text File  |  1997-07-05  |  2KB  |  63 lines
  1. ;Un-Installer script for FileConv 2
  2. ;Version 1.50
  3. ;(C) 1997 Adrian O' Neill
  4. ;See FileConv.guide for more information
  5.  
  6. (message "This script will un-install FileConv.  Please Click on 'Abort' if you want to stop.  Ignore the fact that the installer says you are installing.")
  7.  
  8. (startup "FileConv"
  9.     (prompt "This will remove the path statement from your user-startup")
  10.     (command "")
  11.     (help @startup-help)
  12. )
  13.  
  14. (complete 20)
  15.  
  16. (set fconvdir
  17.     (askdir
  18.         (prompt "Please find the directory that contains FileConv.")
  19.         (help @askdir-help)
  20.         (default @default-dest)
  21.     )
  22. )
  23.  
  24. (complete 30)
  25.  
  26. (
  27.     (set n 0)
  28.     (while (set thisfile (select n "FileConv" "Readme" "FileConv.guide" "Register" "Uninstall" "Install" "reqtools.library" "GobbleDir" "UnGobble" ""))
  29.         (    (set n (+ n 1))
  30.             (
  31.                 (set delfile (tackon fconvdir thisfile))
  32.                 (if (exists delfile)
  33.                     (if (askbool
  34.                             (prompt ("Delete file %s?" delfile))
  35.                             (help @askbool-help)
  36.                             (default 0)
  37.                         )
  38.                         (
  39.                             (delete delfile
  40.                                 (help @delete-help)
  41.                             )
  42.                             (set delfile (cat delfile ".info"))
  43.                             (if (exists delfile)
  44.                                 (delete delfile
  45.                                     (help @delete-help)
  46.                                 )
  47.                             )
  48.                         )
  49.                     )
  50.                 )
  51.             )
  52.         )
  53.     )
  54. )
  55.  
  56. (complete 100)
  57.  
  58. (set @default-dest "")
  59.  
  60. (message "FileConv has been removed from your system.  Delete any files that remain in the FileConv drawer, then you can delete the drawer itself.")
  61.  
  62. ; $VER: Uninstall v1.50 (04.07.97)
  63.